#!/usr/bin/perl -wc

package RFCMail::ESMTP::Object::ReversePath;

use strict;
use base qw(RFCMail::ESMTP::Object::MaybePath);
use Exporter qw(import);
use RFCMail::ESMTP::Object::MaybePath qw(MaybePath);

our @EXPORT_OK = qw(ReversePath);


sub ReversePath {
    my $self = &MaybePath;
    return (bless $self, 'RFCMail::ESMTP::Object::ReversePath');
}


sub reverse_path {
    my ($self) = @_;
    return ($self->path)
	if $self->is_path;
    return ("<>");
}


sub is_null {
    my ($self) = @_;
    return (not $self->is_path);
}


1;
